$PBExportHeader$w_asignacionparent.srw
forward
global type w_asignacionparent from w_operacion
end type
end forward

global type w_asignacionparent from w_operacion
integer width = 3122
integer height = 1896
string title = "Asignaciones"
end type
global w_asignacionparent w_asignacionparent

type variables
string		is_parametros
uo_dw		dw_aulas, dw_argumento, dw_asignaciones

end variables

forward prototypes
public subroutine wf_acomodardw (uo_dw adw, decimal adec_proc)
public subroutine wf_acomodardw (uo_dw adw, decimal adec_proc, uo_dw adw_anterior)
end prototypes

public subroutine wf_acomodardw (uo_dw adw, decimal adec_proc);adw.Width = This.wf_Ancho_Disponible()
adw.Height = This.Height * adec_proc /100
end subroutine

public subroutine wf_acomodardw (uo_dw adw, decimal adec_proc, uo_dw adw_anterior);adw.y = adw_anterior.y + adw_anterior.Height
wf_acomodardw(adw,adec_proc)

end subroutine

on w_asignacionparent.create
call super::create
end on

on w_asignacionparent.destroy
call super::destroy
end on

event ue_leer_parametros;call super::ue_leer_parametros;long		ll_row,	ll_tipo
string 	ls_parmaux



is_parametros = at_op.uof_GetParametros()

This.openuserobject(dw_aulas,wf_ProxParam(is_parametros))
dw_aulas.uof_setdataobject(wf_ProxParam(is_parametros))

This.openuserobject(dw_asignaciones,wf_ProxParam(is_parametros))
dw_asignaciones.uof_setdataobject(wf_ProxParam(is_parametros))

This.openuserobject(dw_argumento,wf_ProxParam(is_parametros))
dw_argumento.uof_setdataobject(wf_ProxParam(is_parametros))


dw_aulas.Border=true
dw_aulas.BorderStyle=StyleLowered!
dw_asignaciones.Border=true
dw_asignaciones.BorderStyle=StyleLowered!
dw_argumento.Border=true
dw_argumento.BorderStyle=StyleLowered!
dw_argumento.enabled = false
end event

event close;call super::close;destroy dw_argumento
destroy dw_aulas
destroy dw_asignaciones


end event

event ue_iniciar();long						ll_row,	ll_aula,	ll_edificio

dw_aulas.settransobject(sqlca)
dw_asignaciones.settransobject(sqlca)


dw_aulas.retrieve()
dw_aulas.uof_marcar_Seleccion(1)

dw_argumento.settransobject(sqlca)

if dw_argumento.retrieve(at_op.s_det[1]) <> 1 then
	//error
end if

ll_aula = dw_argumento.object.aula[1]
ll_edificio = dw_argumento.object.edificio[1]

if not isnull(ll_aula) and not isnull(ll_edificio) then
	ll_row = dw_aulas.find(	"aula = " + string(ll_aula) + &
										"and edificio = " + string(ll_edificio),1,dw_aulas.rowcount())
	if ll_row > 0 then
		dw_aulas.setrow(ll_row)
		dw_aulas.scrolltorow(ll_row)
		dw_aulas.event rowfocuschanged(ll_row)
	end if
else
	dw_aulas.event rowfocuschanged(1)
end if

end event

event ue_dw_cambio_fila(uo_dw arg_objeto);if arg_objeto.getrow() > 0 then 
	if arg_objeto = dw_aulas then &
		dw_asignaciones.retrieve(arg_objeto.object.edificio[arg_objeto.getrow()],&
										arg_objeto.object.aula[arg_objeto.getrow()])
end if
end event

